home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / ti / pcscm3_3 / pkdisk2.arc / PP.FSL < prev    next >
Encoding:
Text File  |  1988-06-07  |  4.8 KB  |  111 lines
  1. #!fast-load  (C) Copyright 1988 by Texas Instruments
  2. #!fast-load            All Rights Reserved.
  3. h0009 00BB
  4. x02PP
  5. x10OPEN-OUTPUT-FILE
  6. x0BLINE-LENGTH
  7. x10SET-LINE-LENGTH!
  8. x07CONSOLE
  9. x0BOUTPUT-PORT
  10. x0F%PRETTY-PRINTER
  11. x11CLOSE-OUTPUT-PORT
  12. x19*THE-NON-PRINTING-OBJECT*
  13. t<■;@ C$H "Q î"  B Å"7  44b 4     4  c 4 Å"    4;
  14. z
  15. h0003 0047
  16. x06%PP-ME
  17. x09PCS*MACRO
  18. x02PP
  19. t<;ï"    @ t "   ï " A AO ;45;
  20. z
  21. h0005 001D
  22. x0F%PP-SET-PATTERN
  23. x13CREATE-SCHEME-MACRO
  24. x13%EXPAND-SYNTAX-FORM
  25. lx02IDlx03PATn
  26. lx07PUTPROPlx02IDlx03PATllx05QUOTElx17%PRETTY-PRINTER-PATTERNnn
  27. t< 5  5
  28. z
  29. h0005 001D
  30. x0F%PP-GET-PATTERN
  31. x13CREATE-SCHEME-MACRO
  32. x13%EXPAND-SYNTAX-FORM
  33. lx02IDn
  34. lx07GETPROPlx02IDllx05QUOTElx17%PRETTY-PRINTER-PATTERNnn
  35. t< 5  5
  36. z
  37. h0023 013C
  38. x05BEGIN
  39. lx03KEYli0002x06V-TAIL
  40. x17%PRETTY-PRINTER-PATTERN
  41. x06BEGIN0
  42. x08SEQUENCE
  43. x05ALIAS
  44. lx04NEATllnx03EXPli0002x06V-TAIL
  45. x06ACCESS
  46. x08APPLY-IF
  47. x06DEFINE
  48. x11DEFINE-INTEGRABLE
  49. x05MACRO
  50. x03REC
  51. x0ASET-FLUID!
  52. x06SYNTAX
  53. x06LAMBDA
  54. lx03KEYllnx03BVLli0002x06V-TAIL
  55. x0CFLUID-LAMBDA
  56. x0CNAMED-LAMBDA
  57. x06LETREC
  58. lx03KEYlli0003x06TUPLESli0002x06V-TAIL
  59. x03LET
  60. li0000x03LET
  61. x04LET*
  62. x09FLUID-LET
  63. x04COND
  64. lx03KEYlnx09COND-TAIL
  65. x04CASE
  66. lx03KEYllnx03EXPli0002x09CASE-TAIL
  67. x02DO
  68. lx03KEYllnx06TUPLESlli0004x04COMBli0002x06V-TAIL
  69. x0C%PP-FUN-CALL
  70. li0000x04CALL
  71. x0F%PP-COMBINATION
  72. li0000x04COMB
  73. t u  u  u  u  u  u      u 
  74.  u   u   u 
  75.  u  u  u  u  u  u  u  u  u  u  u  u   u !" u ;
  76. z
  77. h001B 09DF
  78. x0F%PRETTY-PRINTER
  79. x0C%PP-FUN-CALL
  80. x17%PRETTY-PRINTER-PATTERN
  81. x0F%PP-COMBINATION
  82. x19*THE-NON-PRINTING-OBJECT*
  83. lx05QUOTElx0AQUASIQUOTElx05%QQ-Clx06%QQ-CAlx06%QQ-CDn
  84. x05%QQ-C
  85. llx05QUOTEs0001'llx0AQUASIQUOTEs0001`llx05%QQ-Cs0001,llx06%QQ-CAs0002,@llx06%QQ-CD
  86. s0002,.n
  87. s0001(
  88. s0004 . ,
  89. s0001)
  90. x04NEAT
  91. x03EXP
  92. x06V-TAIL
  93. x04CALL
  94. x03BVL
  95. x06TUPLES
  96. x03LET
  97. x09COND-TAIL
  98. x09CASE-TAIL
  99. x04COMB
  100. s0003 . 
  101. x0ECURRENT-COLUMN
  102. x06SOURCE
  103. s0002 =
  104. s0004    
  105. s0001 
  106. t<;WbW2bt t 0ⁿ 0 ;Ç"!hAÇ"!ä@ï" !╩Eê"    @ g " TEï"Mê"    C d " 2@É"& @t$ !` Ç " !╩@ l  "
  107. Aï"Eê"!A ╞│R
  108. CR ╡│Q 
  109. Q  Ç " !#@ d "
  110. A ï " E ê " 5     │  Q ⁿ
  111. CQⁿ0Z 
  112. │  Q  
  113.  ;@   0ïê"
  114. _"01!f "0⌠■ 0E■0·AÇ" A!PQ 0╤A! @ ë"" @ R0ºA!o@ "I@  d" 0^ "!J■ 0ΓAA !# Q 05A # É  e"!T²
  115.  e"!Å e"!` e"!┴² e"! e"!£ e"!⌐ e"!ê e"!w Çê"A"0^ê"E@É"@╕ ⁿ _ⁿⁿ"!½0╩  Q²08 A !║!²Ç"!╤0Æ  Q 0  C "  C Ç " " A  @ 0ì  Q√0╔ A ï " $ C 0⌡  Q■0Ñ E !' A "-│Q²
  116. 0*
  117. │Q 
  118. ;
  119. │Q 
  120. ;▓4Q  R
  121.  ;Çê" êê#ƒ@d"!Cⁿ@ A Ç"2"R Q  0╬!Ö²@A "  R   Q    0Æ @ 0Z² A  !L Ç"!╓■@ d "!ò√@  A 0~·"0- │!î■Çê"Aï"Eê" 0▀ê""@É"@╕ ⁿ _ⁿⁿ"!,!s!½·ü"+ ╪  l " ││╡A;;; #o_ê#_#QÇ"    QⁿQ !æ @ 0Ç""ARQ P Q  Ö; Q;;;Ç"!²@  A 0y"0Θ ╞!H²ï"!9 Éê"%ëê"Åê"£ê"êêê"╕`" P;;;Ç"!)²0N"  !8∙│Q 
  122.  @ 0∙0) A !½²  c !0 Ç"!mⁿ@  A 0╟²"0╫ ╞!6ⁿ !Σ■"Ç"!cⁿ│Q 
  123. Ç"! √@ A Çê"  0O ê "  0/²    0
  124. ° " 0!j !n√\"
  125. ╡
  126. _#2Qⁿ ` "  │
  127.   │  Q  
  128.  ¼;Ç"!S√0Q 0ç A!    ⁿ@│Q 
  129. !?≈"Ç"!√│Q 
  130. !╞√
  131. z
  132.